/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / utils / elp.elc.z / elp.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 35 3a 34 35 20 31 | 39 39 38 0a 3b 3b 3b 20 |:55:45 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 75 74 69 6c |s-20.3/l|isp/util|
|000000a0| 73 2f 65 6c 70 2e 65 6c | 0a 3b 3b 3b 20 65 6d 61 |s/elp.el|.;;; ema|
|000000b0| 63 73 20 76 65 72 73 69 | 6f 6e 20 32 30 2e 34 20 |cs versi|on 20.4 |
|000000c0| 22 45 6d 65 72 61 6c 64 | 22 20 58 45 6d 61 63 73 |"Emerald|" XEmacs|
|000000d0| 20 20 4c 75 63 69 64 2e | 0a 3b 3b 3b 20 62 79 74 |  Lucid.|.;;; byt|
|000000e0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 32 2e |ecomp ve|rsion 2.|
|000000f0| 32 35 20 58 45 6d 61 63 | 73 3b 20 32 32 2d 4d 61 |25 XEmac|s; 22-Ma|
|00000100| 72 2d 39 36 2e 0a 3b 3b | 3b 20 6f 70 74 69 6d 69 |r-96..;;|; optimi|
|00000110| 7a 61 74 69 6f 6e 20 69 | 73 20 6f 6e 2e 0a 3b 3b |zation i|s on..;;|
|00000120| 3b 20 74 68 69 73 20 66 | 69 6c 65 20 75 73 65 73 |; this f|ile uses|
|00000130| 20 6f 70 63 6f 64 65 73 | 20 77 68 69 63 68 20 64 | opcodes| which d|
|00000140| 6f 20 6e 6f 74 20 65 78 | 69 73 74 20 69 6e 20 45 |o not ex|ist in E|
|00000150| 6d 61 63 73 20 31 39 2e | 0a 0a 28 69 66 20 28 61 |macs 19.|..(if (a|
|00000160| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 6d 61 63 |nd (boun|dp 'emac|
|00000170| 73 2d 76 65 72 73 69 6f | 6e 29 0a 09 20 28 6f 72 |s-versio|n).. (or|
|00000180| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000190| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 20 65 |poch::ve|rsion) e|
|000001a0| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 0a 09 |poch::ve|rsion)..|
|000001b0| 20 20 20 20 20 28 73 74 | 72 69 6e 67 2d 6c 65 73 |     (st|ring-les|
|000001c0| 73 70 20 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |sp emacs|-version|
|000001d0| 20 22 32 30 22 29 29 29 | 0a 20 20 20 20 28 65 72 | "20")))|.    (er|
|000001e0| 72 6f 72 20 22 60 65 6c | 70 2e 65 6c 27 20 77 61 |ror "`el|p.el' wa|
|000001f0| 73 20 63 6f 6d 70 69 6c | 65 64 20 66 6f 72 20 45 |s compil|ed for E|
|00000200| 6d 61 63 73 20 32 30 22 | 29 29 0a 0a 28 6f 72 20 |macs 20"|))..(or |
|00000210| 28 62 6f 75 6e 64 70 20 | 27 63 75 72 72 65 6e 74 |(boundp |'current|
|00000220| 2d 6c 6f 61 64 2d 6c 69 | 73 74 29 20 28 73 65 74 |-load-li|st) (set|
|00000230| 71 20 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c |q curren|t-load-l|
|00000240| 69 73 74 20 6e 69 6c 29 | 29 0a 0a 0a 28 63 75 73 |ist nil)|)...(cus|
|00000250| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 67 72 6f 75 |tom-decl|are-grou|
|00000260| 70 20 27 65 6c 70 20 6e | 69 6c 20 22 45 6d 61 63 |p 'elp n|il "Emac|
|00000270| 73 20 4c 69 73 70 20 50 | 72 6f 66 69 6c 65 72 22 |s Lisp P|rofiler"|
|00000280| 20 3a 67 72 6f 75 70 20 | 27 6c 69 73 70 29 0a 28 | :group |'lisp).(|
|00000290| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|000002a0| 61 72 69 61 62 6c 65 20 | 27 65 6c 70 2d 66 75 6e |ariable |'elp-fun|
|000002b0| 63 74 69 6f 6e 2d 6c 69 | 73 74 20 27 6e 69 6c 20 |ction-li|st 'nil |
|000002c0| 22 2a 4c 69 73 74 20 6f | 66 20 66 75 6e 63 74 69 |"*List o|f functi|
|000002d0| 6f 6e 73 20 74 6f 20 70 | 72 6f 66 69 6c 65 2e 5c |ons to p|rofile.\|
|000002e0| 6e 55 73 65 64 20 62 79 | 20 74 68 65 20 63 6f 6d |nUsed by| the com|
|000002f0| 6d 61 6e 64 20 60 65 6c | 70 2d 69 6e 73 74 72 75 |mand `el|p-instru|
|00000300| 6d 65 6e 74 2d 6c 69 73 | 74 27 2e 22 20 3a 74 79 |ment-lis|t'." :ty|
|00000310| 70 65 20 27 28 72 65 70 | 65 61 74 20 66 75 6e 63 |pe '(rep|eat func|
|00000320| 74 69 6f 6e 29 20 3a 67 | 72 6f 75 70 20 27 65 6c |tion) :g|roup 'el|
|00000330| 70 29 0a 28 63 75 73 74 | 6f 6d 2d 64 65 63 6c 61 |p).(cust|om-decla|
|00000340| 72 65 2d 76 61 72 69 61 | 62 6c 65 20 27 65 6c 70 |re-varia|ble 'elp|
|00000350| 2d 72 65 73 65 74 2d 61 | 66 74 65 72 2d 72 65 73 |-reset-a|fter-res|
|00000360| 75 6c 74 73 20 27 74 20 | 22 2a 4e 6f 6e 2d 6e 69 |ults 't |"*Non-ni|
|00000370| 6c 20 6d 65 61 6e 73 20 | 72 65 73 65 74 20 61 6c |l means |reset al|
|00000380| 6c 20 70 72 6f 66 69 6c | 69 6e 67 20 69 6e 66 6f |l profil|ing info|
|00000390| 20 61 66 74 65 72 20 72 | 65 73 75 6c 74 73 20 61 | after r|esults a|
|000003a0| 72 65 20 64 69 73 70 6c | 61 79 65 64 2e 5c 6e 52 |re displ|ayed.\nR|
|000003b0| 65 73 75 6c 74 73 20 61 | 72 65 20 64 69 73 70 6c |esults a|re displ|
|000003c0| 61 79 65 64 20 77 69 74 | 68 20 74 68 65 20 60 65 |ayed wit|h the `e|
|000003d0| 6c 70 2d 72 65 73 75 6c | 74 73 27 20 63 6f 6d 6d |lp-resul|ts' comm|
|000003e0| 61 6e 64 2e 22 20 3a 74 | 79 70 65 20 27 62 6f 6f |and." :t|ype 'boo|
|000003f0| 6c 65 61 6e 20 3a 67 72 | 6f 75 70 20 27 65 6c 70 |lean :gr|oup 'elp|
|00000400| 29 0a 28 63 75 73 74 6f | 6d 2d 64 65 63 6c 61 72 |).(custo|m-declar|
|00000410| 65 2d 76 61 72 69 61 62 | 6c 65 20 27 65 6c 70 2d |e-variab|le 'elp-|
|00000420| 73 6f 72 74 2d 62 79 2d | 66 75 6e 63 74 69 6f 6e |sort-by-|function|
|00000430| 20 27 27 65 6c 70 2d 73 | 6f 72 74 2d 62 79 2d 74 | ''elp-s|ort-by-t|
|00000440| 6f 74 61 6c 2d 74 69 6d | 65 20 22 2a 4e 6f 6e 2d |otal-tim|e "*Non-|
|00000450| 6e 69 6c 20 73 70 65 63 | 69 66 69 65 73 20 65 6c |nil spec|ifies el|
|00000460| 70 20 72 65 73 75 6c 74 | 73 20 73 6f 72 74 69 6e |p result|s sortin|
|00000470| 67 20 66 75 6e 63 74 69 | 6f 6e 2e 5c 6e 54 68 65 |g functi|on.\nThe|
|00000480| 73 65 20 66 75 6e 63 74 | 69 6f 6e 73 20 61 72 65 |se funct|ions are|
|00000490| 20 63 75 72 72 65 6e 74 | 6c 79 20 61 76 61 69 6c | current|ly avail|
|000004a0| 61 62 6c 65 3a 5c 6e 5c | 6e 20 20 65 6c 70 2d 73 |able:\n\|n  elp-s|
|000004b0| 6f 72 74 2d 62 79 2d 63 | 61 6c 6c 2d 63 6f 75 6e |ort-by-c|all-coun|
|000004c0| 74 20 20 20 2d 2d 20 73 | 6f 72 74 20 62 79 20 74 |t   -- s|ort by t|
|000004d0| 68 65 20 68 69 67 68 65 | 73 74 20 63 61 6c 6c 20 |he highe|st call |
|000004e0| 63 6f 75 6e 74 5c 6e 20 | 20 65 6c 70 2d 73 6f 72 |count\n | elp-sor|
|000004f0| 74 2d 62 79 2d 74 6f 74 | 61 6c 2d 74 69 6d 65 20 |t-by-tot|al-time |
|00000500| 20 20 2d 2d 20 73 6f 72 | 74 20 62 79 20 74 68 65 |  -- sor|t by the|
|00000510| 20 68 69 67 68 65 73 74 | 20 74 6f 74 61 6c 20 74 | highest| total t|
|00000520| 69 6d 65 5c 6e 20 20 65 | 6c 70 2d 73 6f 72 74 2d |ime\n  e|lp-sort-|
|00000530| 62 79 2d 61 76 65 72 61 | 67 65 2d 74 69 6d 65 20 |by-avera|ge-time |
|00000540| 2d 2d 20 73 6f 72 74 20 | 62 79 20 74 68 65 20 68 |-- sort |by the h|
|00000550| 69 67 68 65 73 74 20 61 | 76 65 72 61 67 65 20 74 |ighest a|verage t|
|00000560| 69 6d 65 73 5c 6e 5c 6e | 59 6f 75 20 63 61 6e 20 |imes\n\n|You can |
|00000570| 77 72 69 74 65 20 79 6f | 75 27 72 65 20 6f 77 6e |write yo|u're own|
|00000580| 20 73 6f 72 74 20 66 75 | 6e 63 74 69 6f 6e 2e 20 | sort fu|nction. |
|00000590| 49 74 20 73 68 6f 75 6c | 64 20 61 64 68 65 72 65 |It shoul|d adhere|
|000005a0| 20 74 6f 20 74 68 65 5c | 6e 69 6e 74 65 72 66 61 | to the\|ninterfa|
|000005b0| 63 65 20 73 70 65 63 69 | 66 69 65 64 20 62 79 20 |ce speci|fied by |
|000005c0| 74 68 65 20 50 52 45 44 | 20 61 72 67 75 6d 65 6e |the PRED| argumen|
|000005d0| 74 20 66 6f 72 20 74 68 | 65 20 60 73 6f 72 74 27 |t for th|e `sort'|
|000005e0| 20 64 65 66 75 6e 2e 20 | 20 45 61 63 68 5c 6e 5c | defun. | Each\n\|
|000005f0| 22 65 6c 65 6d 65 6e 74 | 20 6f 66 20 4c 49 53 54 |"element| of LIST|
|00000600| 5c 22 20 69 73 20 72 65 | 61 6c 6c 79 20 61 20 34 |\" is re|ally a 4|
|00000610| 20 65 6c 65 6d 65 6e 74 | 20 76 65 63 74 6f 72 20 | element| vector |
|00000620| 77 68 65 72 65 20 65 6c | 65 6d 65 6e 74 20 30 20 |where el|ement 0 |
|00000630| 69 73 5c 6e 74 68 65 20 | 63 61 6c 6c 20 63 6f 75 |is\nthe |call cou|
|00000640| 6e 74 2c 20 65 6c 65 6d | 65 6e 74 20 31 20 69 73 |nt, elem|ent 1 is|
|00000650| 20 74 68 65 20 74 6f 74 | 61 6c 20 74 69 6d 65 20 | the tot|al time |
|00000660| 73 70 65 6e 74 20 69 6e | 20 74 68 65 20 66 75 6e |spent in| the fun|
|00000670| 63 74 69 6f 6e 2c 5c 6e | 65 6c 65 6d 65 6e 74 20 |ction,\n|element |
|00000680| 32 20 69 73 20 74 68 65 | 20 61 76 65 72 61 67 65 |2 is the| average|
|00000690| 20 74 69 6d 65 20 73 70 | 65 6e 74 20 69 6e 20 74 | time sp|ent in t|
|000006a0| 68 65 20 66 75 6e 63 74 | 69 6f 6e 2c 20 61 6e 64 |he funct|ion, and|
|000006b0| 20 65 6c 65 6d 65 6e 74 | 20 33 20 69 73 5c 6e 74 | element| 3 is\nt|
|000006c0| 68 65 20 73 79 6d 62 6f | 6c 27 73 20 6e 61 6d 65 |he symbo|l's name|
|000006d0| 20 73 74 72 69 6e 67 2e | 22 20 3a 74 79 70 65 20 | string.|" :type |
|000006e0| 27 66 75 6e 63 74 69 6f | 6e 20 3a 67 72 6f 75 70 |'functio|n :group|
|000006f0| 20 27 65 6c 70 29 0a 28 | 63 75 73 74 6f 6d 2d 64 | 'elp).(|custom-d|
|00000700| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|00000710| 27 65 6c 70 2d 72 65 70 | 6f 72 74 2d 6c 69 6d 69 |'elp-rep|ort-limi|
|00000720| 74 20 27 31 20 22 2a 50 | 72 65 76 65 6e 74 73 20 |t '1 "*P|revents |
|00000730| 73 6f 6d 65 20 66 75 6e | 63 74 69 6f 6e 73 20 66 |some fun|ctions f|
|00000740| 72 6f 6d 20 62 65 69 6e | 67 20 64 69 73 70 6c 61 |rom bein|g displa|
|00000750| 79 65 64 20 69 6e 20 74 | 68 65 20 72 65 73 75 6c |yed in t|he resul|
|00000760| 74 73 20 62 75 66 66 65 | 72 2e 5c 6e 49 66 20 61 |ts buffe|r.\nIf a|
|00000770| 20 6e 75 6d 62 65 72 2c | 20 6e 6f 20 66 75 6e 63 | number,| no func|
|00000780| 74 69 6f 6e 20 74 68 61 | 74 20 68 61 73 20 62 65 |tion tha|t has be|
|00000790| 65 6e 20 63 61 6c 6c 65 | 64 20 66 65 77 65 72 20 |en calle|d fewer |
|000007a0| 74 68 61 6e 20 74 68 61 | 74 20 6e 75 6d 62 65 72 |than tha|t number|
|000007b0| 5c 6e 6f 66 20 74 69 6d | 65 73 20 77 69 6c 6c 20 |\nof tim|es will |
|000007c0| 62 65 20 64 69 73 70 6c | 61 79 65 64 20 69 6e 20 |be displ|ayed in |
|000007d0| 74 68 65 20 6f 75 74 70 | 75 74 20 62 75 66 66 65 |the outp|ut buffe|
|000007e0| 72 2e 20 20 49 66 20 6e | 69 6c 2c 20 61 6c 6c 5c |r.  If n|il, all\|
|000007f0| 6e 66 75 6e 63 74 69 6f | 6e 73 20 77 69 6c 6c 20 |nfunctio|ns will |
|00000800| 62 65 20 64 69 73 70 6c | 61 79 65 64 2e 22 20 3a |be displ|ayed." :|
|00000810| 74 79 70 65 20 27 28 63 | 68 6f 69 63 65 20 69 6e |type '(c|hoice in|
|00000820| 74 65 67 65 72 20 28 63 | 6f 6e 73 74 20 3a 74 61 |teger (c|onst :ta|
|00000830| 67 20 22 41 6c 6c 22 20 | 6e 69 6c 29 29 20 3a 67 |g "All" |nil)) :g|
|00000840| 72 6f 75 70 20 27 65 6c | 70 29 0a 28 63 75 73 74 |roup 'el|p).(cust|
|00000850| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 76 61 72 69 61 |om-decla|re-varia|
|00000860| 62 6c 65 20 27 65 6c 70 | 2d 75 73 65 2d 73 74 61 |ble 'elp|-use-sta|
|00000870| 6e 64 61 72 64 2d 6f 75 | 74 70 75 74 20 27 6e 69 |ndard-ou|tput 'ni|
|00000880| 6c 20 22 2a 4e 6f 6e 2d | 6e 69 6c 20 73 61 79 73 |l "*Non-|nil says|
|00000890| 20 74 6f 20 6f 75 74 70 | 75 74 20 74 6f 20 60 73 | to outp|ut to `s|
|000008a0| 74 61 6e 64 61 72 64 2d | 6f 75 74 70 75 74 27 20 |tandard-|output' |
|000008b0| 69 6e 73 74 65 61 64 20 | 6f 66 20 61 20 62 75 66 |instead |of a buf|
|000008c0| 66 65 72 2e 22 20 3a 74 | 79 70 65 20 27 62 6f 6f |fer." :t|ype 'boo|
|000008d0| 6c 65 61 6e 20 3a 67 72 | 6f 75 70 20 27 65 6c 70 |lean :gr|oup 'elp|
|000008e0| 29 0a 28 63 75 73 74 6f | 6d 2d 64 65 63 6c 61 72 |).(custo|m-declar|
|000008f0| 65 2d 76 61 72 69 61 62 | 6c 65 20 27 65 6c 70 2d |e-variab|le 'elp-|
|00000900| 72 65 63 79 63 6c 65 2d | 62 75 66 66 65 72 73 2d |recycle-|buffers-|
|00000910| 70 20 27 74 20 22 2a 4e | 69 6c 20 73 61 79 73 20 |p 't "*N|il says |
|00000920| 74 6f 20 6e 6f 74 20 72 | 65 63 79 63 6c 65 20 74 |to not r|ecycle t|
|00000930| 68 65 20 60 65 6c 70 2d | 72 65 73 75 6c 74 73 2d |he `elp-|results-|
|00000940| 62 75 66 66 65 72 27 2e | 5c 6e 49 6e 20 6f 74 68 |buffer'.|\nIn oth|
|00000950| 65 72 20 77 6f 72 64 73 | 2c 20 61 20 6e 65 77 20 |er words|, a new |
|00000960| 75 6e 69 71 75 65 20 62 | 75 66 66 65 72 20 69 73 |unique b|uffer is|
|00000970| 20 63 72 65 61 74 65 20 | 65 76 65 72 79 20 74 69 | create |every ti|
|00000980| 6d 65 20 79 6f 75 20 72 | 75 6e 5c 6e 5c 5c 5b 65 |me you r|un\n\\[e|
|00000990| 6c 70 2d 72 65 73 75 6c | 74 73 5d 2e 22 20 3a 74 |lp-resul|ts]." :t|
|000009a0| 79 70 65 20 27 62 6f 6f | 6c 65 61 6e 20 3a 67 72 |ype 'boo|lean :gr|
|000009b0| 6f 75 70 20 27 65 6c 70 | 29 0a 23 40 32 31 20 45 |oup 'elp|).#@21 E|
|000009c0| 4c 50 20 76 65 72 73 69 | 6f 6e 20 6e 75 6d 62 65 |LP versi|on numbe|
|000009d0| 72 2e 1f 0a 28 64 65 66 | 63 6f 6e 73 74 20 65 6c |r...(def|const el|
|000009e0| 70 2d 76 65 72 73 69 6f | 6e 20 22 32 2e 33 37 22 |p-versio|n "2.37"|
|000009f0| 20 28 23 24 20 2e 20 32 | 34 39 35 29 29 0a 23 40 | (#$ . 2|495)).#@|
|00000a00| 36 31 20 41 64 64 72 65 | 73 73 20 61 63 63 65 70 |61 Addre|ss accep|
|00000a10| 74 69 6e 67 20 73 75 62 | 6d 69 73 73 69 6f 6e 73 |ting sub|missions|
|00000a20| 20 6f 66 20 62 75 67 20 | 72 65 70 6f 72 74 73 20 | of bug |reports |
|00000a30| 61 6e 64 20 71 75 65 73 | 74 69 6f 6e 73 2e 1f 0a |and ques|tions...|
|00000a40| 28 64 65 66 63 6f 6e 73 | 74 20 65 6c 70 2d 68 65 |(defcons|t elp-he|
|00000a50| 6c 70 2d 61 64 64 72 65 | 73 73 20 22 74 6f 6f 6c |lp-addre|ss "tool|
|00000a60| 73 2d 68 65 6c 70 40 70 | 79 74 68 6f 6e 2e 6f 72 |s-help@p|ython.or|
|00000a70| 67 22 20 28 23 24 20 2e | 20 32 35 36 33 29 29 0a |g" (#$ .| 2563)).|
|00000a80| 23 40 34 37 20 42 75 66 | 66 65 72 20 6e 61 6d 65 |#@47 Buf|fer name|
|00000a90| 20 66 6f 72 20 6f 75 74 | 70 75 74 74 69 6e 67 20 | for out|putting |
|00000aa0| 70 72 6f 66 69 6c 69 6e | 67 20 72 65 73 75 6c 74 |profilin|g result|
|00000ab0| 73 2e 1f 0a 28 64 65 66 | 76 61 72 20 65 6c 70 2d |s...(def|var elp-|
|00000ac0| 72 65 73 75 6c 74 73 2d | 62 75 66 66 65 72 20 22 |results-|buffer "|
|00000ad0| 2a 45 4c 50 20 50 72 6f | 66 69 6c 69 6e 67 20 52 |*ELP Pro|filing R|
|00000ae0| 65 73 75 6c 74 73 2a 22 | 20 28 23 24 20 2e 20 32 |esults*"| (#$ . 2|
|00000af0| 36 39 33 29 29 0a 23 40 | 33 32 20 45 4c 50 20 69 |693)).#@|32 ELP i|
|00000b00| 6e 66 6f 72 6d 61 74 69 | 6f 6e 20 70 72 6f 70 65 |nformati|on prope|
|00000b10| 72 74 79 20 6e 61 6d 65 | 2e 1f 0a 28 64 65 66 63 |rty name|...(defc|
|00000b20| 6f 6e 73 74 20 65 6c 70 | 2d 74 69 6d 65 72 2d 69 |onst elp|-timer-i|
|00000b30| 6e 66 6f 2d 70 72 6f 70 | 65 72 74 79 20 27 65 6c |nfo-prop|erty 'el|
|00000b40| 70 2d 69 6e 66 6f 20 28 | 23 24 20 2e 20 32 38 31 |p-info (|#$ . 281|
|00000b50| 31 29 29 0a 23 40 35 33 | 20 4c 69 73 74 20 6f 66 |1)).#@53| List of|
|00000b60| 20 61 6c 6c 20 66 75 6e | 63 74 69 6f 6e 73 20 63 | all fun|ctions c|
|00000b70| 75 72 72 65 6e 74 6c 79 | 20 62 65 69 6e 67 20 69 |urrently| being i|
|00000b80| 6e 73 74 72 75 6d 65 6e | 74 65 64 2e 1f 0a 28 64 |nstrumen|ted...(d|
|00000b90| 65 66 76 61 72 20 65 6c | 70 2d 61 6c 6c 2d 69 6e |efvar el|p-all-in|
|00000ba0| 73 74 72 75 6d 65 6e 74 | 65 64 2d 6c 69 73 74 20 |strument|ed-list |
|00000bb0| 6e 69 6c 20 28 23 24 20 | 2e 20 32 39 30 35 29 29 |nil (#$ |. 2905))|
|00000bc0| 0a 23 40 31 30 31 20 43 | 6f 6e 74 72 6f 6c 73 20 |.#@101 C|ontrols |
|00000bd0| 77 68 65 74 68 65 72 20 | 66 75 6e 63 74 69 6f 6e |whether |function|
|00000be0| 73 20 73 68 6f 75 6c 64 | 20 72 65 63 6f 72 64 20 |s should| record |
|00000bf0| 74 69 6d 65 73 20 6f 72 | 20 6e 6f 74 2e 0a 54 68 |times or| not..Th|
|00000c00| 69 73 20 76 61 72 69 61 | 62 6c 65 20 69 73 20 73 |is varia|ble is s|
|00000c10| 65 74 20 62 79 20 74 68 | 65 20 6d 61 73 74 65 72 |et by th|e master|
|00000c20| 20 66 75 6e 63 74 69 6f | 6e 2e 1f 0a 28 64 65 66 | functio|n...(def|
|00000c30| 76 61 72 20 65 6c 70 2d | 72 65 63 6f 72 64 2d 70 |var elp-|record-p|
|00000c40| 20 74 20 28 23 24 20 2e | 20 33 30 31 35 29 29 0a | t (#$ .| 3015)).|
|00000c50| 23 40 32 35 20 4d 61 73 | 74 65 72 20 66 75 6e 63 |#@25 Mas|ter func|
|00000c60| 74 69 6f 6e 20 73 79 6d | 62 6f 6c 2e 1f 0a 28 64 |tion sym|bol...(d|
|00000c70| 65 66 76 61 72 20 65 6c | 70 2d 6d 61 73 74 65 72 |efvar el|p-master|
|00000c80| 20 6e 69 6c 20 28 23 24 | 20 2e 20 33 31 35 37 29 | nil (#$| . 3157)|
|00000c90| 29 0a 23 40 38 31 20 49 | 6e 73 74 72 75 6d 65 6e |).#@81 I|nstrumen|
|00000ca0| 74 20 46 55 4e 53 59 4d | 20 66 6f 72 20 70 72 6f |t FUNSYM| for pro|
|00000cb0| 66 69 6c 69 6e 67 2e 0a | 46 55 4e 53 59 4d 20 6d |filing..|FUNSYM m|
|00000cc0| 75 73 74 20 62 65 20 61 | 20 73 79 6d 62 6f 6c 20 |ust be a| symbol |
|00000cd0| 6f 66 20 61 20 64 65 66 | 69 6e 65 64 20 66 75 6e |of a def|ined fun|
|00000ce0| 63 74 69 6f 6e 2e 1f 0a | 28 64 65 66 61 6c 69 61 |ction...|(defalia|
|00000cf0| 73 20 27 65 6c 70 2d 69 | 6e 73 74 72 75 6d 65 6e |s 'elp-i|nstrumen|
|00000d00| 74 2d 66 75 6e 63 74 69 | 6f 6e 20 23 5b 28 66 75 |t-functi|on #[(fu|
|00000d10| 6e 73 79 6d 29 20 22 c0 | 09 21 88 09 4b 1a c3 c4 |nsym) ".|.!..K...|
|00000d20| 89 5c 6e 23 1d c6 1e 07 | 5c 6e a2 c8 61 ab 85 c9 |.\n#....|\n..a...|
|00000d30| ca 09 5c 22 88 5c 6e a2 | cb 61 ab 85 c9 cc 09 5c |..\".\n.|.a.....\|
|00000d40| 22 88 cd 09 21 ab 87 ce | 0e 07 cf 5c 22 16 07 ce |"...!...|...\"...|
|00000d50| 0e 07 d0 d1 09 44 d2 d3 | cd 09 21 3f 3f 45 d4 46 |.....D..|..!??E.F|
|00000d60| 43 5c 22 16 07 d5 09 0e | 16 0d 23 88 09 0e 07 4d |C\".....|..#....M|
|00000d70| 88 09 0e 17 73 ae 87 09 | 0e 17 42 89 16 17 2b 87 |....s...|..B...+.|
|00000d80| 22 20 5b 65 6c 70 2d 72 | 65 73 74 6f 72 65 2d 66 |" [elp-r|estore-f|
|00000d90| 75 6e 63 74 69 6f 6e 20 | 66 75 6e 73 79 6d 20 66 |unction |funsym f|
|00000da0| 75 6e 67 75 74 73 20 76 | 65 63 74 6f 72 20 30 20 |unguts v|ector 0 |
|00000db0| 69 6e 66 6f 76 65 63 20 | 28 6c 61 6d 62 64 61 20 |infovec |(lambda |
|00000dc0| 28 26 72 65 73 74 20 61 | 72 67 73 29 29 20 6e 65 |(&rest a|rgs)) ne|
|00000dd0| 77 67 75 74 73 20 6d 61 | 63 72 6f 20 65 72 72 6f |wguts ma|cro erro|
|00000de0| 72 20 22 45 4c 50 20 63 | 61 6e 6e 6f 74 20 70 72 |r "ELP c|annot pr|
|00000df0| 6f 66 69 6c 65 20 6d 61 | 63 72 6f 3a 20 25 73 22 |ofile ma|cro: %s"|
|00000e00| 20 61 75 74 6f 6c 6f 61 | 64 20 22 45 4c 50 20 63 | autoloa|d "ELP c|
|00000e10| 61 6e 6e 6f 74 20 70 72 | 6f 66 69 6c 65 20 61 75 |annot pr|ofile au|
|00000e20| 74 6f 6c 6f 61 64 65 64 | 20 66 75 6e 63 74 69 6f |toloaded| functio|
|00000e30| 6e 3a 20 25 73 22 20 63 | 6f 6d 6d 61 6e 64 70 20 |n: %s" c|ommandp |
|00000e40| 61 70 70 65 6e 64 20 28 | 28 69 6e 74 65 72 61 63 |append (|(interac|
|00000e50| 74 69 76 65 29 29 20 65 | 6c 70 2d 77 72 61 70 70 |tive)) e|lp-wrapp|
|00000e60| 65 72 20 71 75 6f 74 65 | 20 61 6e 64 20 28 69 6e |er quote| and (in|
|00000e70| 74 65 72 61 63 74 69 76 | 65 2d 70 29 20 61 72 67 |teractiv|e-p) arg|
|00000e80| 73 20 70 75 74 20 65 6c | 70 2d 74 69 6d 65 72 2d |s put el|p-timer-|
|00000e90| 69 6e 66 6f 2d 70 72 6f | 70 65 72 74 79 20 65 6c |info-pro|perty el|
|00000ea0| 70 2d 61 6c 6c 2d 69 6e | 73 74 72 75 6d 65 6e 74 |p-all-in|strument|
|00000eb0| 65 64 2d 6c 69 73 74 5d | 20 38 20 28 23 24 20 2e |ed-list]| 8 (#$ .|
|00000ec0| 20 33 32 32 33 29 20 22 | 61 46 75 6e 63 74 69 6f | 3223) "|aFunctio|
|00000ed0| 6e 20 74 6f 20 69 6e 73 | 74 72 75 6d 65 6e 74 3a |n to ins|trument:|
|00000ee0| 20 22 5d 29 0a 23 40 31 | 31 35 20 52 65 73 74 6f | "]).#@1|15 Resto|
|00000ef0| 72 65 20 61 6e 20 69 6e | 73 74 72 75 6d 65 6e 74 |re an in|strument|
|00000f00| 65 64 20 66 75 6e 63 74 | 69 6f 6e 20 74 6f 20 69 |ed funct|ion to i|
|00000f10| 74 73 20 6f 72 69 67 69 | 6e 61 6c 20 64 65 66 69 |ts origi|nal defi|
|00000f20| 6e 69 74 69 6f 6e 2e 0a | 41 72 67 75 6d 65 6e 74 |nition..|Argument|
|00000f30| 20 46 55 4e 53 59 4d 20 | 69 73 20 74 68 65 20 73 | FUNSYM |is the s|
|00000f40| 79 6d 62 6f 6c 20 6f 66 | 20 61 20 64 65 66 69 6e |ymbol of| a defin|
|00000f50| 65 64 20 66 75 6e 63 74 | 69 6f 6e 2e 1f 0a 28 64 |ed funct|ion...(d|
|00000f60| 65 66 61 6c 69 61 73 20 | 27 65 6c 70 2d 72 65 73 |efalias |'elp-res|
|00000f70| 74 6f 72 65 2d 66 75 6e | 63 74 69 6f 6e 20 23 5b |tore-fun|ction #[|
|00000f80| 28 66 75 6e 73 79 6d 29 | 20 22 08 09 4e 1a c3 08 |(funsym)| "..N...|
|00000f90| 0c 5c 22 14 08 0d 61 ab | 85 c6 15 c7 16 08 c9 08 |.\"...a.|........|
|00000fa0| 09 c6 23 88 5c 6e ad 92 | ca 08 4b 21 3f ad 8b cb |..#.\n..|..K!?...|
|00000fb0| 08 4b b7 ad 85 08 5c 6e | cc 48 4d 29 87 22 20 5b |.K....\n|.HM)." [|
|00000fc0| 66 75 6e 73 79 6d 20 65 | 6c 70 2d 74 69 6d 65 72 |funsym e|lp-timer|
|00000fd0| 2d 69 6e 66 6f 2d 70 72 | 6f 70 65 72 74 79 20 69 |-info-pr|operty i|
|00000fe0| 6e 66 6f 20 64 65 6c 71 | 20 65 6c 70 2d 61 6c 6c |nfo delq| elp-all|
|00000ff0| 2d 69 6e 73 74 72 75 6d | 65 6e 74 65 64 2d 6c 69 |-instrum|ented-li|
|00001000| 73 74 20 65 6c 70 2d 6d | 61 73 74 65 72 20 6e 69 |st elp-m|aster ni|
|00001010| 6c 20 74 20 65 6c 70 2d | 72 65 63 6f 72 64 2d 70 |l t elp-|record-p|
|00001020| 20 70 75 74 20 63 6f 6d | 70 69 6c 65 64 2d 66 75 | put com|piled-fu|
|00001030| 6e 63 74 69 6f 6e 2d 70 | 20 65 6c 70 2d 77 72 61 |nction-p| elp-wra|
|00001040| 70 70 65 72 20 32 5d 20 | 34 20 28 23 24 20 2e 20 |pper 2] |4 (#$ . |
|00001050| 33 38 31 39 29 20 22 61 | 46 75 6e 63 74 69 6f 6e |3819) "a|Function|
|00001060| 20 74 6f 20 72 65 73 74 | 6f 72 65 3a 20 22 5d 29 | to rest|ore: "])|
|00001070| 0a 23 40 31 30 34 20 49 | 6e 73 74 72 75 6d 65 6e |.#@104 I|nstrumen|
|00001080| 74 20 66 6f 72 20 70 72 | 6f 66 69 6c 69 6e 67 2c |t for pr|ofiling,|
|00001090| 20 61 6c 6c 20 66 75 6e | 63 74 69 6f 6e 73 20 69 | all fun|ctions i|
|000010a0| 6e 20 60 65 6c 70 2d 66 | 75 6e 63 74 69 6f 6e 2d |n `elp-f|unction-|
|000010b0| 6c 69 73 74 27 2e 0a 55 | 73 65 20 6f 70 74 69 6f |list'..U|se optio|
|000010c0| 6e 61 6c 20 4c 49 53 54 | 20 69 66 20 70 72 6f 76 |nal LIST| if prov|
|000010d0| 69 64 65 64 20 69 6e 73 | 74 65 61 64 2e 1f 0a 28 |ided ins|tead...(|
|000010e0| 64 65 66 61 6c 69 61 73 | 20 27 65 6c 70 2d 69 6e |defalias| 'elp-in|
|000010f0| 73 74 72 75 6d 65 6e 74 | 2d 6c 69 73 74 20 23 5b |strument|-list #[|
|00001100| 28 26 6f 70 74 69 6f 6e | 61 6c 20 6c 69 73 74 29 |(&option|al list)|
|00001110| 20 22 08 ae 81 09 18 c2 | c3 08 5c 22 29 87 22 20 | "......|..\")." |
|00001120| 5b 6c 69 73 74 20 65 6c | 70 2d 66 75 6e 63 74 69 |[list el|p-functi|
|00001130| 6f 6e 2d 6c 69 73 74 20 | 6d 61 70 63 61 72 20 65 |on-list |mapcar e|
|00001140| 6c 70 2d 69 6e 73 74 72 | 75 6d 65 6e 74 2d 66 75 |lp-instr|ument-fu|
|00001150| 6e 63 74 69 6f 6e 5d 20 | 33 20 28 23 24 20 2e 20 |nction] |3 (#$ . |
|00001160| 34 32 31 35 29 20 22 50 | 4c 69 73 74 20 6f 66 20 |4215) "P|List of |
|00001170| 66 75 6e 63 74 69 6f 6e | 73 20 74 6f 20 69 6e 73 |function|s to ins|
|00001180| 74 72 75 6d 65 6e 74 3a | 20 22 5d 29 0a 23 40 31 |trument:| "]).#@1|
|00001190| 37 34 20 49 6e 73 74 72 | 75 6d 65 6e 74 20 66 6f |74 Instr|ument fo|
|000011a0| 72 20 70 72 6f 66 69 6c | 69 6e 67 2c 20 61 6c 6c |r profil|ing, all|
|000011b0| 20 66 75 6e 63 74 69 6f | 6e 73 20 77 68 69 63 68 | functio|ns which|
|000011c0| 20 73 74 61 72 74 20 77 | 69 74 68 20 50 52 45 46 | start w|ith PREF|
|000011d0| 49 58 2e 0a 46 6f 72 20 | 65 78 61 6d 70 6c 65 2c |IX..For |example,|
|000011e0| 20 74 6f 20 69 6e 73 74 | 72 75 6d 65 6e 74 20 61 | to inst|rument a|
|000011f0| 6c 6c 20 45 4c 50 20 66 | 75 6e 63 74 69 6f 6e 73 |ll ELP f|unctions|
|00001200| 2c 20 64 6f 20 74 68 65 | 20 66 6f 6c 6c 6f 77 69 |, do the| followi|
|00001210| 6e 67 3a 0a 0a 20 20 20 | 20 5c 5b 65 6c 70 2d 69 |ng:..   | \[elp-i|
|00001220| 6e 73 74 72 75 6d 65 6e | 74 2d 70 61 63 6b 61 67 |nstrumen|t-packag|
|00001230| 65 5d 20 52 45 54 20 65 | 6c 70 2d 20 52 45 54 1f |e] RET e|lp- RET.|
|00001240| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 65 6c 70 2d |.(defali|as 'elp-|
|00001250| 69 6e 73 74 72 75 6d 65 | 6e 74 2d 70 61 63 6b 61 |instrume|nt-packa|
|00001260| 67 65 20 23 5b 28 70 72 | 65 66 69 78 29 20 22 c0 |ge #[(pr|efix) ".|
|00001270| c1 c2 c3 0c 0d c6 23 5c | 22 21 87 22 20 5b 65 6c |......#\|"!." [el|
|00001280| 70 2d 69 6e 73 74 72 75 | 6d 65 6e 74 2d 6c 69 73 |p-instru|ment-lis|
|00001290| 74 20 6d 61 70 63 61 72 | 20 69 6e 74 65 72 6e 20 |t mapcar| intern |
|000012a0| 61 6c 6c 2d 63 6f 6d 70 | 6c 65 74 69 6f 6e 73 20 |all-comp|letions |
|000012b0| 70 72 65 66 69 78 20 6f | 62 61 72 72 61 79 20 23 |prefix o|barray #|
|000012c0| 5b 28 73 79 6d 29 20 22 | c0 09 21 ad 86 09 4b a2 |[(sym) "|..!...K.|
|000012d0| c2 61 3f 87 22 20 5b 66 | 62 6f 75 6e 64 70 20 73 |.a?." [f|boundp s|
|000012e0| 79 6d 20 6d 61 63 72 6f | 5d 20 32 5d 5d 20 37 20 |ym macro|] 2]] 7 |
|000012f0| 28 23 24 20 2e 20 34 34 | 39 39 29 20 22 73 50 72 |(#$ . 44|99) "sPr|
|00001300| 65 66 69 78 20 6f 66 20 | 70 61 63 6b 61 67 65 20 |efix of |package |
|00001310| 74 6f 20 69 6e 73 74 72 | 75 6d 65 6e 74 3a 20 22 |to instr|ument: "|
|00001320| 5d 29 0a 23 40 31 31 35 | 20 52 65 73 74 6f 72 65 |]).#@115| Restore|
|00001330| 20 74 68 65 20 6f 72 69 | 67 69 6e 61 6c 20 64 65 | the ori|ginal de|
|00001340| 66 69 6e 69 74 69 6f 6e | 73 20 66 6f 72 20 61 6c |finition|s for al|
|00001350| 6c 20 66 75 6e 63 74 69 | 6f 6e 73 20 69 6e 20 60 |l functi|ons in `|
|00001360| 65 6c 70 2d 66 75 6e 63 | 74 69 6f 6e 2d 6c 69 73 |elp-func|tion-lis|
|00001370| 74 27 2e 0a 55 73 65 20 | 6f 70 74 69 6f 6e 61 6c |t'..Use |optional|
|00001380| 20 4c 49 53 54 20 69 66 | 20 70 72 6f 76 69 64 65 | LIST if| provide|
|00001390| 64 20 69 6e 73 74 65 61 | 64 2e 1f 0a 28 64 65 66 |d instea|d...(def|
|000013a0| 61 6c 69 61 73 20 27 65 | 6c 70 2d 72 65 73 74 6f |alias 'e|lp-resto|
|000013b0| 72 65 2d 6c 69 73 74 20 | 23 5b 28 26 6f 70 74 69 |re-list |#[(&opti|
|000013c0| 6f 6e 61 6c 20 6c 69 73 | 74 29 20 22 08 ae 81 09 |onal lis|t) "....|
|000013d0| 18 c2 c3 08 5c 22 29 87 | 22 20 5b 6c 69 73 74 20 |....\").|" [list |
|000013e0| 65 6c 70 2d 66 75 6e 63 | 74 69 6f 6e 2d 6c 69 73 |elp-func|tion-lis|
|000013f0| 74 20 6d 61 70 63 61 72 | 20 65 6c 70 2d 72 65 73 |t mapcar| elp-res|
|00001400| 74 6f 72 65 2d 66 75 6e | 63 74 69 6f 6e 5d 20 33 |tore-fun|ction] 3|
|00001410| 20 28 23 24 20 2e 20 34 | 39 30 35 29 20 22 50 4c | (#$ . 4|905) "PL|
|00001420| 69 73 74 20 6f 66 20 66 | 75 6e 63 74 69 6f 6e 73 |ist of f|unctions|
|00001430| 20 74 6f 20 72 65 73 74 | 6f 72 65 3a 20 22 5d 29 | to rest|ore: "])|
|00001440| 0a 23 40 36 38 20 52 65 | 73 74 6f 72 65 73 20 74 |.#@68 Re|stores t|
|00001450| 68 65 20 6f 72 69 67 69 | 6e 61 6c 20 64 65 66 69 |he origi|nal defi|
|00001460| 6e 69 74 69 6f 6e 73 20 | 6f 66 20 61 6c 6c 20 66 |nitions |of all f|
|00001470| 75 6e 63 74 69 6f 6e 73 | 20 62 65 69 6e 67 20 70 |unctions| being p|
|00001480| 72 6f 66 69 6c 65 64 2e | 1f 0a 28 64 65 66 61 6c |rofiled.|..(defal|
|00001490| 69 61 73 20 27 65 6c 70 | 2d 72 65 73 74 6f 72 65 |ias 'elp|-restore|
|000014a0| 2d 61 6c 6c 20 23 5b 6e | 69 6c 20 22 c0 09 21 87 |-all #[n|il "..!.|
|000014b0| 22 20 5b 65 6c 70 2d 72 | 65 73 74 6f 72 65 2d 6c |" [elp-r|estore-l|
|000014c0| 69 73 74 20 65 6c 70 2d | 61 6c 6c 2d 69 6e 73 74 |ist elp-|all-inst|
|000014d0| 72 75 6d 65 6e 74 65 64 | 2d 6c 69 73 74 5d 20 32 |rumented|-list] 2|
|000014e0| 20 28 23 24 20 2e 20 35 | 31 39 30 29 20 6e 69 6c | (#$ . 5|190) nil|
|000014f0| 5d 29 0a 23 40 34 35 20 | 52 65 73 65 74 20 74 68 |]).#@45 |Reset th|
|00001500| 65 20 70 72 6f 66 69 6c | 69 6e 67 20 69 6e 66 6f |e profil|ing info|
|00001510| 72 6d 61 74 69 6f 6e 20 | 66 6f 72 20 46 55 4e 53 |rmation |for FUNS|
|00001520| 59 4d 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |YM...(de|falias '|
|00001530| 65 6c 70 2d 72 65 73 65 | 74 2d 66 75 6e 63 74 69 |elp-rese|t-functi|
|00001540| 6f 6e 20 23 5b 28 66 75 | 6e 73 79 6d 29 20 22 08 |on #[(fu|nsym) ".|
|00001550| 09 4e 89 1a ac 85 c3 c4 | 08 5c 22 88 5c 6e c5 89 |.N......|.\".\n..|
|00001560| 49 88 5c 6e c6 c7 49 29 | 87 22 20 5b 66 75 6e 73 |I.\n..I)|." [funs|
|00001570| 79 6d 20 65 6c 70 2d 74 | 69 6d 65 72 2d 69 6e 66 |ym elp-t|imer-inf|
|00001580| 6f 2d 70 72 6f 70 65 72 | 74 79 20 69 6e 66 6f 20 |o-proper|ty info |
|00001590| 65 72 72 6f 72 20 22 25 | 73 20 69 73 20 6e 6f 74 |error "%|s is not|
|000015a0| 20 69 6e 73 74 72 75 6d | 65 6e 74 65 64 20 66 6f | instrum|ented fo|
|000015b0| 72 20 70 72 6f 66 69 6c | 69 6e 67 2e 22 20 30 20 |r profil|ing." 0 |
|000015c0| 31 20 30 2e 30 5d 20 34 | 20 28 23 24 20 2e 20 35 |1 0.0] 4| (#$ . 5|
|000015d0| 33 36 38 29 20 22 61 46 | 75 6e 63 74 69 6f 6e 20 |368) "aF|unction |
|000015e0| 74 6f 20 72 65 73 65 74 | 3a 20 22 5d 29 0a 23 40 |to reset|: "]).#@|
|000015f0| 31 31 34 20 52 65 73 65 | 74 20 74 68 65 20 70 72 |114 Rese|t the pr|
|00001600| 6f 66 69 6c 69 6e 67 20 | 69 6e 66 6f 72 6d 61 74 |ofiling |informat|
|00001610| 69 6f 6e 20 66 6f 72 20 | 61 6c 6c 20 66 75 6e 63 |ion for |all func|
|00001620| 74 69 6f 6e 73 20 69 6e | 20 60 65 6c 70 2d 66 75 |tions in| `elp-fu|
|00001630| 6e 63 74 69 6f 6e 2d 6c | 69 73 74 27 2e 0a 55 73 |nction-l|ist'..Us|
|00001640| 65 20 6f 70 74 69 6f 6e | 61 6c 20 4c 49 53 54 20 |e option|al LIST |
|00001650| 69 66 20 70 72 6f 76 69 | 64 65 64 20 69 6e 73 74 |if provi|ded inst|
|00001660| 65 61 64 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ead...(d|efalias |
|00001670| 27 65 6c 70 2d 72 65 73 | 65 74 2d 6c 69 73 74 20 |'elp-res|et-list |
|00001680| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 6c 69 73 |#[(&opti|onal lis|
|00001690| 74 29 20 22 08 ae 81 09 | 18 c2 c3 08 5c 22 29 87 |t) "....|....\").|
|000016a0| 22 20 5b 6c 69 73 74 20 | 65 6c 70 2d 66 75 6e 63 |" [list |elp-func|
|000016b0| 74 69 6f 6e 2d 6c 69 73 | 74 20 6d 61 70 63 61 72 |tion-lis|t mapcar|
|000016c0| 20 65 6c 70 2d 72 65 73 | 65 74 2d 66 75 6e 63 74 | elp-res|et-funct|
|000016d0| 69 6f 6e 5d 20 33 20 28 | 23 24 20 2e 20 35 36 32 |ion] 3 (|#$ . 562|
|000016e0| 30 29 20 22 50 4c 69 73 | 74 20 6f 66 20 66 75 6e |0) "PLis|t of fun|
|000016f0| 63 74 69 6f 6e 73 20 74 | 6f 20 72 65 73 65 74 3a |ctions t|o reset:|
|00001700| 20 22 5d 29 0a 23 40 36 | 37 20 52 65 73 65 74 20 | "]).#@6|7 Reset |
|00001710| 74 68 65 20 70 72 6f 66 | 69 6c 69 6e 67 20 69 6e |the prof|iling in|
|00001720| 66 6f 72 6d 61 74 69 6f | 6e 20 66 6f 72 20 61 6c |formatio|n for al|
|00001730| 6c 20 66 75 6e 63 74 69 | 6f 6e 73 20 62 65 69 6e |l functi|ons bein|
|00001740| 67 20 70 72 6f 66 69 6c | 65 64 2e 1f 0a 28 64 65 |g profil|ed...(de|
|00001750| 66 61 6c 69 61 73 20 27 | 65 6c 70 2d 72 65 73 65 |falias '|elp-rese|
|00001760| 74 2d 61 6c 6c 20 23 5b | 6e 69 6c 20 22 c0 09 21 |t-all #[|nil "..!|
|00001770| 87 22 20 5b 65 6c 70 2d | 72 65 73 65 74 2d 6c 69 |." [elp-|reset-li|
|00001780| 73 74 20 65 6c 70 2d 61 | 6c 6c 2d 69 6e 73 74 72 |st elp-a|ll-instr|
|00001790| 75 6d 65 6e 74 65 64 2d | 6c 69 73 74 5d 20 32 20 |umented-|list] 2 |
|000017a0| 28 23 24 20 2e 20 35 38 | 39 38 29 20 6e 69 6c 5d |(#$ . 58|98) nil]|
|000017b0| 29 0a 23 40 34 30 20 53 | 65 74 20 74 68 65 20 6d |).#@40 S|et the m|
|000017c0| 61 73 74 65 72 20 66 75 | 6e 63 74 69 6f 6e 20 66 |aster fu|nction f|
|000017d0| 6f 72 20 70 72 6f 66 69 | 6c 69 6e 67 2e 1f 0a 28 |or profi|ling...(|
|000017e0| 64 65 66 61 6c 69 61 73 | 20 27 65 6c 70 2d 73 65 |defalias| 'elp-se|
|000017f0| 74 2d 6d 61 73 74 65 72 | 20 23 5b 28 66 75 6e 73 |t-master| #[(funs|
|00001800| 79 6d 29 20 22 08 11 c2 | 13 08 0c 73 ae 83 c5 08 |ym) "...|...s....|
|00001810| 21 87 22 20 5b 66 75 6e | 73 79 6d 20 65 6c 70 2d |!." [fun|sym elp-|
|00001820| 6d 61 73 74 65 72 20 6e | 69 6c 20 65 6c 70 2d 72 |master n|il elp-r|
|00001830| 65 63 6f 72 64 2d 70 20 | 65 6c 70 2d 61 6c 6c 2d |ecord-p |elp-all-|
|00001840| 69 6e 73 74 72 75 6d 65 | 6e 74 65 64 2d 6c 69 73 |instrume|nted-lis|
|00001850| 74 20 65 6c 70 2d 69 6e | 73 74 72 75 6d 65 6e 74 |t elp-in|strument|
|00001860| 2d 66 75 6e 63 74 69 6f | 6e 5d 20 32 20 28 23 24 |-functio|n] 2 (#$|
|00001870| 20 2e 20 36 30 37 31 29 | 20 22 61 4d 61 73 74 65 | . 6071)| "aMaste|
|00001880| 72 20 66 75 6e 63 74 69 | 6f 6e 3a 20 22 5d 29 0a |r functi|on: "]).|
|00001890| 23 40 32 39 20 55 6e 73 | 65 74 73 20 74 68 65 20 |#@29 Uns|ets the |
|000018a0| 6d 61 73 74 65 72 20 66 | 75 6e 63 74 69 6f 6e 2e |master f|unction.|
|000018b0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 65 6c 70 |..(defal|ias 'elp|
|000018c0| 2d 75 6e 73 65 74 2d 6d | 61 73 74 65 72 20 23 5b |-unset-m|aster #[|
|000018d0| 6e 69 6c 20 22 c0 11 c2 | 89 13 87 22 20 5b 6e 69 |nil "...|..." [ni|
|000018e0| 6c 20 65 6c 70 2d 6d 61 | 73 74 65 72 20 74 20 65 |l elp-ma|ster t e|
|000018f0| 6c 70 2d 72 65 63 6f 72 | 64 2d 70 5d 20 32 20 28 |lp-recor|d-p] 2 (|
|00001900| 23 24 20 2e 20 36 32 39 | 33 29 20 6e 69 6c 5d 29 |#$ . 629|3) nil])|
|00001910| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 65 6c 70 2d |.(defali|as 'elp-|
|00001920| 67 65 74 2d 74 69 6d 65 | 20 23 5b 6e 69 6c 20 22 |get-time| #[nil "|
|00001930| c0 20 19 c2 09 41 40 21 | c2 c3 09 38 21 c4 a5 5c |. ...A@!|...8!..\|
|00001940| 5c 29 87 22 20 5b 63 75 | 72 72 65 6e 74 2d 74 69 |\)." [cu|rrent-ti|
|00001950| 6d 65 20 6e 6f 77 20 66 | 6c 6f 61 74 20 32 20 31 |me now f|loat 2 1|
|00001960| 30 30 30 30 30 30 2e 30 | 5d 20 34 5d 29 0a 28 62 |000000.0|] 4]).(b|
|00001970| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 4e c2 73 ac |yte-code| "..N.s.|
|00001980| 85 c3 c4 c0 5c 22 88 c5 | c0 c1 c6 23 87 22 20 5b |....\"..|...#." [|
|00001990| 65 6c 70 2d 67 65 74 2d | 74 69 6d 65 20 62 79 74 |elp-get-|time byt|
|000019a0| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 20 28 6e 69 6c |e-optimi|zer (nil|
|000019b0| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 69 6e | byte-co|mpile-in|
|000019c0| 6c 69 6e 65 2d 65 78 70 | 61 6e 64 29 20 65 72 72 |line-exp|and) err|
|000019d0| 6f 72 20 22 25 73 20 61 | 6c 72 65 61 64 79 20 68 |or "%s a|lready h|
|000019e0| 61 73 20 61 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |as a byt|e-optimi|
|000019f0| 7a 65 72 2c 20 63 61 6e | 27 74 20 6d 61 6b 65 20 |zer, can|'t make |
|00001a00| 69 74 20 69 6e 6c 69 6e | 65 22 20 70 75 74 20 62 |it inlin|e" put b|
|00001a10| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 69 6e 6c 69 |yte-comp|ile-inli|
|00001a20| 6e 65 2d 65 78 70 61 6e | 64 5d 20 34 29 0a 23 40 |ne-expan|d] 4).#@|
|00001a30| 31 39 39 20 54 68 69 73 | 20 66 75 6e 63 74 69 6f |199 This| functio|
|00001a40| 6e 20 68 61 73 20 62 65 | 65 6e 20 69 6e 73 74 72 |n has be|en instr|
|00001a50| 75 6d 65 6e 74 65 64 20 | 66 6f 72 20 70 72 6f 66 |umented |for prof|
|00001a60| 69 6c 69 6e 67 20 62 79 | 20 74 68 65 20 45 4c 50 |iling by| the ELP|
|00001a70| 2e 0a 45 4c 50 20 69 73 | 20 74 68 65 20 45 6d 61 |..ELP is| the Ema|
|00001a80| 63 73 20 4c 69 73 70 20 | 50 72 6f 66 69 6c 65 72 |cs Lisp |Profiler|
|00001a90| 2e 20 20 54 6f 20 72 65 | 73 74 6f 72 65 20 74 68 |.  To re|store th|
|00001aa0| 65 20 66 75 6e 63 74 69 | 6f 6e 20 74 6f 20 69 74 |e functi|on to it|
|00001ab0| 73 0a 6f 72 69 67 69 6e | 61 6c 20 64 65 66 69 6e |s.origin|al defin|
|00001ac0| 69 74 69 6f 6e 2c 20 75 | 73 65 20 5c 5b 65 6c 70 |ition, u|se \[elp|
|00001ad0| 2d 72 65 73 74 6f 72 65 | 2d 66 75 6e 63 74 69 6f |-restore|-functio|
|00001ae0| 6e 5d 20 6f 72 20 5c 5b | 65 6c 70 2d 72 65 73 74 |n] or \[|elp-rest|
|00001af0| 6f 72 65 2d 61 6c 6c 5d | 2e 1f 0a 28 64 65 66 61 |ore-all]|...(defa|
|00001b00| 6c 69 61 73 20 27 65 6c | 70 2d 77 72 61 70 70 65 |lias 'el|p-wrappe|
|00001b10| 72 20 23 5b 28 66 75 6e | 73 79 6d 20 69 6e 74 65 |r #[(fun|sym inte|
|00001b20| 72 61 63 74 69 76 65 2d | 70 20 61 72 67 73 29 20 |ractive-|p args) |
|00001b30| 22 08 ab 87 09 08 61 ab | 82 c2 13 09 0c 4e 89 1d |".....a.|.....N..|
|00001b40| c6 48 1e 07 c8 1e 09 0e | 07 ac 85 ca cb 09 5c 22 |.H......|......\"|
|00001b50| 88 0b ac 94 0e 0c ab 86 | cd 0e 07 21 aa 86 ce 0e |........|...!....|
|00001b60| 07 0e 0f 5c 22 16 09 aa | d0 d0 20 1e 11 d2 0e 11 |...\"...|.. .....|
|00001b70| 41 40 21 d2 c6 0e 11 38 | 21 d3 a5 5c 5c 29 1e 14 |A@!....8|!..\\)..|
|00001b80| 0d d5 0d d5 48 54 49 88 | 0e 0c ab 86 cd 0e 07 21 |....HTI.|.......!|
|00001b90| aa 86 ce 0e 07 0e 0f 5c | 22 16 09 0d d6 0d d6 48 |.......\|"......H|
|00001ba0| d0 20 1e 11 d2 0e 11 41 | 40 21 d2 c6 0e 11 38 21 |. .....A|@!....8!|
|00001bb0| d3 a5 5c 5c 29 0e 14 5a | 5c 5c 49 88 29 08 ab 87 |..\\)..Z|\\I.)...|
|00001bc0| 09 08 61 ab 82 c8 13 0e | 09 2b 87 22 20 5b 65 6c |..a.....|.+." [el|
|00001bd0| 70 2d 6d 61 73 74 65 72 | 20 66 75 6e 73 79 6d 20 |p-master| funsym |
|00001be0| 74 20 65 6c 70 2d 72 65 | 63 6f 72 64 2d 70 20 65 |t elp-re|cord-p e|
|00001bf0| 6c 70 2d 74 69 6d 65 72 | 2d 69 6e 66 6f 2d 70 72 |lp-timer|-info-pr|
|00001c00| 6f 70 65 72 74 79 20 69 | 6e 66 6f 20 32 20 66 75 |operty i|nfo 2 fu|
|00001c10| 6e 63 20 6e 69 6c 20 72 | 65 73 75 6c 74 20 65 72 |nc nil r|esult er|
|00001c20| 72 6f 72 20 22 25 73 20 | 69 73 20 6e 6f 74 20 69 |ror "%s |is not i|
|00001c30| 6e 73 74 72 75 6d 65 6e | 74 65 64 20 66 6f 72 20 |nstrumen|ted for |
|00001c40| 70 72 6f 66 69 6c 69 6e | 67 2e 22 20 69 6e 74 65 |profilin|g." inte|
|00001c50| 72 61 63 74 69 76 65 2d | 70 20 63 61 6c 6c 2d 69 |ractive-|p call-i|
|00001c60| 6e 74 65 72 61 63 74 69 | 76 65 6c 79 20 61 70 70 |nteracti|vely app|
|00001c70| 6c 79 20 61 72 67 73 20 | 63 75 72 72 65 6e 74 2d |ly args |current-|
|00001c80| 74 69 6d 65 20 6e 6f 77 | 20 66 6c 6f 61 74 20 31 |time now| float 1|
|00001c90| 30 30 30 30 30 30 2e 30 | 20 65 6e 74 65 72 2d 74 |000000.0| enter-t|
|00001ca0| 69 6d 65 20 30 20 31 5d | 20 38 20 28 23 24 20 2e |ime 0 1]| 8 (#$ .|
|00001cb0| 20 36 37 30 38 29 5d 29 | 0a 28 62 79 74 65 2d 63 | 6708)])|.(byte-c|
|00001cc0| 6f 64 65 20 22 c0 c1 21 | ac 82 c2 11 c1 0b 42 13 |ode "..!|......B.|
|00001cd0| c0 c4 21 ac 82 c2 14 c4 | 0b 42 13 c0 c5 21 ac 82 |..!.....|.B...!..|
|00001ce0| c2 15 c5 0b 42 13 c0 c6 | 21 ac 83 c2 16 06 c6 0b |....B...|!.......|
|00001cf0| 42 13 c2 87 22 20 5b 62 | 6f 75 6e 64 70 20 65 6c |B..." [b|oundp el|
|00001d00| 70 2d 66 69 65 6c 64 2d | 6c 65 6e 20 6e 69 6c 20 |p-field-|len nil |
|00001d10| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00001d20| 74 20 65 6c 70 2d 63 63 | 2d 6c 65 6e 20 65 6c 70 |t elp-cc|-len elp|
|00001d30| 2d 61 74 2d 6c 65 6e 20 | 65 6c 70 2d 65 74 2d 6c |-at-len |elp-et-l|
|00001d40| 65 6e 5d 20 32 29 0a 28 | 64 65 66 61 6c 69 61 73 |en] 2).(|defalias|
|00001d50| 20 27 65 6c 70 2d 73 6f | 72 74 2d 62 79 2d 63 61 | 'elp-so|rt-by-ca|
|00001d60| 6c 6c 2d 63 6f 75 6e 74 | 20 23 5b 28 76 65 63 31 |ll-count| #[(vec1|
|00001d70| 20 76 65 63 32 29 20 22 | 08 c1 48 5c 6e c1 48 59 | vec2) "|..H\n.HY|
|00001d80| 87 22 20 5b 76 65 63 31 | 20 30 20 76 65 63 32 5d |." [vec1| 0 vec2]|
|00001d90| 20 33 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 3]).(de|falias '|
|00001da0| 65 6c 70 2d 73 6f 72 74 | 2d 62 79 2d 74 6f 74 61 |elp-sort|-by-tota|
|00001db0| 6c 2d 74 69 6d 65 20 23 | 5b 28 76 65 63 31 20 76 |l-time #|[(vec1 v|
|00001dc0| 65 63 32 29 20 22 08 c1 | 48 5c 6e c1 48 59 87 22 |ec2) "..|H\n.HY."|
|00001dd0| 20 5b 76 65 63 31 20 31 | 20 76 65 63 32 5d 20 33 | [vec1 1| vec2] 3|
|00001de0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 65 6c |]).(defa|lias 'el|
|00001df0| 70 2d 73 6f 72 74 2d 62 | 79 2d 61 76 65 72 61 67 |p-sort-b|y-averag|
|00001e00| 65 2d 74 69 6d 65 20 23 | 5b 28 76 65 63 31 20 76 |e-time #|[(vec1 v|
|00001e10| 65 63 32 29 20 22 08 c1 | 48 5c 6e c1 48 59 87 22 |ec2) "..|H\n.HY."|
|00001e20| 20 5b 76 65 63 31 20 32 | 20 76 65 63 32 5d 20 33 | [vec1 2| vec2] 3|
|00001e30| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 65 6c |]).(defa|lias 'el|
|00001e40| 70 2d 70 61 63 6b 2d 6e | 75 6d 62 65 72 20 23 5b |p-pack-n|umber #[|
|00001e50| 28 6e 75 6d 62 65 72 20 | 77 69 64 74 68 29 20 22 |(number |width) "|
|00001e60| 08 47 09 58 ab 82 08 87 | c2 c3 08 5c 22 ab 9b 08 |.G.X....|...\"...|
|00001e70| c4 94 c4 95 4f c5 09 c6 | 95 5a c6 94 5b 5a c7 5a |....O...|.Z..[Z.Z|
|00001e80| 4f c8 08 c6 94 c6 95 4f | 51 87 08 c5 09 4f b0 01 |O......O|Q....O..|
|00001e90| 87 22 20 5b 6e 75 6d 62 | 65 72 20 77 69 64 74 68 |." [numb|er width|
|00001ea0| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 5e | string-|match "^|
|00001eb0| 5c 5c 28 2e 2a 5c 5c 29 | 5c 5c 28 65 5b 2b 2d 5d |\\(.*\\)|\\(e[+-]|
|00001ec0| 2e 2a 5c 5c 29 24 22 20 | 31 20 30 20 32 20 33 20 |.*\\)$" |1 0 2 3 |
|00001ed0| 22 2e 2e 2e 22 5d 20 35 | 5d 29 0a 28 62 79 74 65 |"..."] 5|]).(byte|
|00001ee0| 2d 63 6f 64 65 20 22 c0 | c1 4e c2 73 ac 85 c3 c4 |-code ".|.N.s....|
|00001ef0| c0 5c 22 88 c5 c0 c1 c6 | 23 87 22 20 5b 65 6c 70 |.\".....|#." [elp|
|00001f00| 2d 70 61 63 6b 2d 6e 75 | 6d 62 65 72 20 62 79 74 |-pack-nu|mber byt|
|00001f10| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 20 28 6e 69 6c |e-optimi|zer (nil|
|00001f20| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 69 6e | byte-co|mpile-in|
|00001f30| 6c 69 6e 65 2d 65 78 70 | 61 6e 64 29 20 65 72 72 |line-exp|and) err|
|00001f40| 6f 72 20 22 25 73 20 61 | 6c 72 65 61 64 79 20 68 |or "%s a|lready h|
|00001f50| 61 73 20 61 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |as a byt|e-optimi|
|00001f60| 7a 65 72 2c 20 63 61 6e | 27 74 20 6d 61 6b 65 20 |zer, can|'t make |
|00001f70| 69 74 20 69 6e 6c 69 6e | 65 22 20 70 75 74 20 62 |it inlin|e" put b|
|00001f80| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 69 6e 6c 69 |yte-comp|ile-inli|
|00001f90| 6e 65 2d 65 78 70 61 6e | 64 5d 20 34 29 0a 28 64 |ne-expan|d] 4).(d|
|00001fa0| 65 66 61 6c 69 61 73 20 | 27 65 6c 70 2d 6f 75 74 |efalias |'elp-out|
|00001fb0| 70 75 74 2d 72 65 73 75 | 6c 74 20 23 5b 28 72 65 |put-resu|lt #[(re|
|00001fc0| 73 75 6c 74 76 65 63 29 | 20 22 08 c1 48 1a 08 c3 |sultvec)| "..H...|
|00001fd0| 48 1c 08 c5 48 1e 06 08 | c7 48 1e 08 c9 1e 5c 6e |H...H...|.H....\n|
|00001fe0| c9 1e 0b c9 1e 0c cd 5c | 6e 21 16 5c 6e cd 0c 21 |.......\|n!.\n..!|
|00001ff0| 16 0b cd 0e 06 21 16 0c | 0e 0e ad 89 0e 0e a7 ad |.....!..|........|
|00002000| 84 5c 6e 0e 0e 57 3f 85 | fd 00 0e 08 63 88 cf d0 |.\n..W?.|....c...|
|00002010| 0e 11 0e 08 47 5b 5c 5c | c5 5c 5c 5c 22 88 0e 5c |....G[\\|.\\\"..\|
|00002020| 6e 63 88 cf d0 0e 12 0e | 5c 6e 47 5b 5c 5c c5 5c |nc......|\nG[\\.\|
|00002030| 5c 5c 22 88 0e 0b 0e 13 | 1e 14 89 1e 15 47 0e 14 |\\".....|.....G..|
|00002040| 58 ab 84 0e 15 aa ae d6 | d7 0e 15 5c 22 ab 9f 0e |X.......|...\"...|
|00002050| 15 c3 94 c3 95 4f c1 0e | 14 c5 95 5a c5 94 5b 5a |.....O..|...Z..[Z|
|00002060| c7 5a 4f d8 0e 15 c5 94 | c5 95 4f 51 aa 88 0e 15 |.ZO.....|..OQ....|
|00002070| c1 0e 14 4f b0 01 2a 0e | 0c 0e 19 1e 14 89 1e 15 |...O..*.|........|
|00002080| 47 0e 14 58 ab 84 0e 15 | aa ae d6 d7 0e 15 5c 22 |G..X....|......\"|
|00002090| ab 9f 0e 15 c3 94 c3 95 | 4f c1 0e 14 c5 95 5a c5 |........|O.....Z.|
|000020a0| 94 5b 5a c7 5a 4f d8 0e | 15 c5 94 c5 95 4f 51 aa |.[Z.ZO..|.....OQ.|
|000020b0| 88 0e 15 c1 0e 14 4f b0 | 01 2a 1e 1a 89 1e 1b 63 |......O.|.*.....c|
|000020c0| 88 cf d0 0e 13 0e 1b 47 | 5b 5c 5c c5 5c 5c 5c 22 |.......G|[\\.\\\"|
|000020d0| 88 0e 1a 63 88 2a dc 63 | 2e 07 87 22 20 5b 72 65 |...c.*.c|..." [re|
|000020e0| 73 75 6c 74 76 65 63 20 | 30 20 63 63 20 31 20 74 |sultvec |0 cc 1 t|
|000020f0| 74 20 32 20 61 74 20 33 | 20 73 79 6d 6e 61 6d 65 |t 2 at 3| symname|
|00002100| 20 6e 69 6c 20 63 61 6c | 6c 63 6e 74 20 74 6f 74 | nil cal|lcnt tot|
|00002110| 61 6c 74 69 6d 65 20 61 | 76 65 74 69 6d 65 20 6e |altime a|vetime n|
|00002120| 75 6d 62 65 72 2d 74 6f | 2d 73 74 72 69 6e 67 20 |umber-to|-string |
|00002130| 65 6c 70 2d 72 65 70 6f | 72 74 2d 6c 69 6d 69 74 |elp-repo|rt-limit|
|00002140| 20 69 6e 73 65 72 74 2d | 63 68 61 72 20 33 32 20 | insert-|char 32 |
|00002150| 65 6c 70 2d 66 69 65 6c | 64 2d 6c 65 6e 20 65 6c |elp-fiel|d-len el|
|00002160| 70 2d 63 63 2d 6c 65 6e | 20 65 6c 70 2d 65 74 2d |p-cc-len| elp-et-|
|00002170| 6c 65 6e 20 77 69 64 74 | 68 20 6e 75 6d 62 65 72 |len widt|h number|
|00002180| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 5e | string-|match "^|
|00002190| 5c 5c 28 2e 2a 5c 5c 29 | 5c 5c 28 65 5b 2b 2d 5d |\\(.*\\)|\\(e[+-]|
|000021a0| 2e 2a 5c 5c 29 24 22 20 | 22 2e 2e 2e 22 20 65 6c |.*\\)$" |"..." el|
|000021b0| 70 2d 61 74 2d 6c 65 6e | 20 61 74 73 74 72 20 74 |p-at-len| atstr t|
|000021c0| 74 73 74 72 20 22 5c 6e | 22 5d 20 37 5d 29 0a 23 |tstr "\n|"] 7]).#|
|000021d0| 40 31 38 32 20 44 69 73 | 70 6c 61 79 20 63 75 72 |@182 Dis|play cur|
|000021e0| 72 65 6e 74 20 70 72 6f | 66 69 6c 69 6e 67 20 72 |rent pro|filing r|
|000021f0| 65 73 75 6c 74 73 2e 0a | 49 66 20 60 65 6c 70 2d |esults..|If `elp-|
|00002200| 72 65 73 65 74 2d 61 66 | 74 65 72 2d 72 65 73 75 |reset-af|ter-resu|
|00002210| 6c 74 73 27 20 69 73 20 | 6e 6f 6e 2d 6e 69 6c 2c |lts' is |non-nil,|
|00002220| 20 74 68 65 6e 20 63 75 | 72 72 65 6e 74 20 70 72 | then cu|rrent pr|
|00002230| 6f 66 69 6c 69 6e 67 0a | 69 6e 66 6f 72 6d 61 74 |ofiling.|informat|
|00002240| 69 6f 6e 20 66 6f 72 20 | 61 6c 6c 20 69 6e 73 74 |ion for |all inst|
|00002250| 72 75 6d 65 6e 74 65 64 | 20 66 75 6e 63 74 69 6f |rumented| functio|
|00002260| 6e 73 20 61 72 65 20 72 | 65 73 65 74 20 61 66 74 |ns are r|eset aft|
|00002270| 65 72 20 72 65 73 75 6c | 74 73 20 61 72 65 0a 64 |er resul|ts are.d|
|00002280| 69 73 70 6c 61 79 65 64 | 2e 1f 0a 28 64 65 66 61 |isplayed|...(defa|
|00002290| 6c 69 61 73 20 27 65 6c | 70 2d 72 65 73 75 6c 74 |lias 'el|p-result|
|000022a0| 73 20 23 5b 6e 69 6c 20 | 22 70 08 ab 85 c1 5c 6e |s #[nil |"p....\n|
|000022b0| 21 aa 83 c3 5c 6e 21 1c | 1d 0c 71 88 c6 20 88 c7 |!...\n!.|..q.. ..|
|000022c0| 20 88 c8 1e 09 ca 1e 0b | ca 47 89 1e 0c 1e 0d ce | .......|.G......|
|000022d0| 1e 0f ce 47 1e 10 d1 1e | 12 d1 47 1e 13 d4 1e 15 |...G....|..G.....|
|000022e0| d4 47 1e 16 d7 d8 0e 19 | 5c 22 1e 1a 0e 0b 63 88 |.G......|\"....c.|
|000022f0| 0e 09 0e 0c 56 ab 8d db | dc 0e 09 0e 0c 5a 5c 22 |....V...|.....Z\"|
|00002300| 88 0e 09 16 0d dd 0e 0f | dd 0e 12 dd 0e 15 de b1 |........|........|
|00002310| 07 88 db df 0e 0d 5c 22 | 88 dd 63 88 db df 0e 10 |......\"|..c.....|
|00002320| 5c 22 88 dd 63 88 db df | 0e 13 5c 22 88 dd 63 88 |\"..c...|..\"..c.|
|00002330| db df 0e 16 5c 22 88 de | 63 88 0e 20 ab 88 e1 0e |....\"..|c.. ....|
|00002340| 1a 0e 20 5c 22 16 1a d7 | e2 0e 1a 5c 22 88 2e 0b |.. \"...|...\"...|
|00002350| 0d 71 88 e3 0c 21 88 0e | 24 ac 84 0e 25 ab 86 e6 |.q...!..|$...%...|
|00002360| 65 64 7b 21 88 0e 27 ad | 82 e8 20 2a 87 22 20 5b |ed{!..'.|.. *." [|
|00002370| 65 6c 70 2d 72 65 63 79 | 63 6c 65 2d 62 75 66 66 |elp-recy|cle-buff|
|00002380| 65 72 73 2d 70 20 67 65 | 74 2d 62 75 66 66 65 72 |ers-p ge|t-buffer|
|00002390| 2d 63 72 65 61 74 65 20 | 65 6c 70 2d 72 65 73 75 |-create |elp-resu|
|000023a0| 6c 74 73 2d 62 75 66 66 | 65 72 20 67 65 6e 65 72 |lts-buff|er gener|
|000023b0| 61 74 65 2d 6e 65 77 2d | 62 75 66 66 65 72 20 72 |ate-new-|buffer r|
|000023c0| 65 73 75 6c 74 73 62 75 | 66 20 63 75 72 62 75 66 |esultsbu|f curbuf|
|000023d0| 20 65 72 61 73 65 2d 62 | 75 66 66 65 72 20 62 65 | erase-b|uffer be|
|000023e0| 67 69 6e 6e 69 6e 67 2d | 6f 66 2d 62 75 66 66 65 |ginning-|of-buffe|
|000023f0| 72 20 30 20 6c 6f 6e 67 | 65 73 74 20 22 46 75 6e |r 0 long|est "Fun|
|00002400| 63 74 69 6f 6e 20 4e 61 | 6d 65 22 20 74 69 74 6c |ction Na|me" titl|
|00002410| 65 20 74 69 74 6c 65 6c | 65 6e 20 65 6c 70 2d 66 |e titlel|en elp-f|
|00002420| 69 65 6c 64 2d 6c 65 6e | 20 22 43 61 6c 6c 20 43 |ield-len| "Call C|
|00002430| 6f 75 6e 74 22 20 63 63 | 2d 68 65 61 64 65 72 20 |ount" cc|-header |
|00002440| 65 6c 70 2d 63 63 2d 6c | 65 6e 20 22 45 6c 61 70 |elp-cc-l|en "Elap|
|00002450| 73 65 64 20 54 69 6d 65 | 22 20 65 74 2d 68 65 61 |sed Time|" et-hea|
|00002460| 64 65 72 20 65 6c 70 2d | 65 74 2d 6c 65 6e 20 22 |der elp-|et-len "|
|00002470| 41 76 65 72 61 67 65 20 | 54 69 6d 65 22 20 61 74 |Average |Time" at|
|00002480| 2d 68 65 61 64 65 72 20 | 65 6c 70 2d 61 74 2d 6c |-header |elp-at-l|
|00002490| 65 6e 20 6d 61 70 63 61 | 72 20 23 5b 28 66 75 6e |en mapca|r #[(fun|
|000024a0| 73 79 6d 29 20 22 08 09 | 4e 1a c3 c4 08 5c 22 1d |sym) "..|N....\".|
|000024b0| 5c 6e c6 48 1e 07 5c 6e | c8 48 1e 09 5c 6e ac 86 |\n.H..\n|.H..\n..|
|000024c0| ca 0d b1 02 aa a0 0e 0b | 0d 47 5d 16 0b cc 0e 07 |........|.G].....|
|000024d0| 0e 09 0e 07 c6 55 ab 83 | cd aa 89 ce 0e 09 21 ce |.....U..|......!.|
|000024e0| 0e 07 21 a5 0d 24 2c 87 | 22 20 5b 66 75 6e 73 79 |..!..$,.|" [funsy|
|000024f0| 6d 20 65 6c 70 2d 74 69 | 6d 65 72 2d 69 6e 66 6f |m elp-ti|mer-info|
|00002500| 2d 70 72 6f 70 65 72 74 | 79 20 69 6e 66 6f 20 66 |-propert|y info f|
|00002510| 6f 72 6d 61 74 20 22 25 | 73 22 20 73 79 6d 6e 61 |ormat "%|s" symna|
|00002520| 6d 65 20 30 20 63 63 20 | 31 20 74 74 20 22 4e 6f |me 0 cc |1 tt "No|
|00002530| 20 70 72 6f 66 69 6c 69 | 6e 67 20 69 6e 66 6f 72 | profili|ng infor|
|00002540| 6d 61 74 69 6f 6e 20 66 | 6f 75 6e 64 20 66 6f 72 |mation f|ound for|
|00002550| 3a 20 22 20 6c 6f 6e 67 | 65 73 74 20 76 65 63 74 |: " long|est vect|
|00002560| 6f 72 20 30 2e 30 20 66 | 6c 6f 61 74 5d 20 36 5d |or 0.0 f|loat] 6]|
|00002570| 20 65 6c 70 2d 61 6c 6c | 2d 69 6e 73 74 72 75 6d | elp-all|-instrum|
|00002580| 65 6e 74 65 64 2d 6c 69 | 73 74 20 72 65 73 76 65 |ented-li|st resve|
|00002590| 63 20 69 6e 73 65 72 74 | 2d 63 68 61 72 20 33 32 |c insert|-char 32|
|000025a0| 20 22 20 20 22 20 22 5c | 6e 22 20 3f 5c 3d 20 65 | "  " "\|n" ?\= e|
|000025b0| 6c 70 2d 73 6f 72 74 2d | 62 79 2d 66 75 6e 63 74 |lp-sort-|by-funct|
|000025c0| 69 6f 6e 20 73 6f 72 74 | 20 65 6c 70 2d 6f 75 74 |ion sort| elp-out|
|000025d0| 70 75 74 2d 72 65 73 75 | 6c 74 20 70 6f 70 2d 74 |put-resu|lt pop-t|
|000025e0| 6f 2d 62 75 66 66 65 72 | 20 65 6c 70 2d 75 73 65 |o-buffer| elp-use|
|000025f0| 2d 73 74 61 6e 64 61 72 | 64 2d 6f 75 74 70 75 74 |-standar|d-output|
|00002600| 20 6e 6f 6e 69 6e 74 65 | 72 61 63 74 69 76 65 20 | noninte|ractive |
|00002610| 70 72 69 6e 63 20 65 6c | 70 2d 72 65 73 65 74 2d |princ el|p-reset-|
|00002620| 61 66 74 65 72 2d 72 65 | 73 75 6c 74 73 20 65 6c |after-re|sults el|
|00002630| 70 2d 72 65 73 65 74 2d | 61 6c 6c 5d 20 38 20 28 |p-reset-|all] 8 (|
|00002640| 23 24 20 2e 20 38 36 36 | 31 29 20 6e 69 6c 5d 29 |#$ . 866|1) nil])|
|00002650| 0a 23 40 33 39 20 53 75 | 62 6d 69 74 20 76 69 61 |.#@39 Su|bmit via|
|00002660| 20 6d 61 69 6c 2c 20 61 | 20 62 75 67 20 72 65 70 | mail, a| bug rep|
|00002670| 6f 72 74 20 6f 6e 20 65 | 6c 70 2e 1f 0a 28 64 65 |ort on e|lp...(de|
|00002680| 66 61 6c 69 61 73 20 27 | 65 6c 70 2d 73 75 62 6d |falias '|elp-subm|
|00002690| 69 74 2d 62 75 67 2d 72 | 65 70 6f 72 74 20 23 5b |it-bug-r|eport #[|
|000026a0| 6e 69 6c 20 22 c0 c1 21 | ad 8d c2 c3 21 ad 88 c4 |nil "..!|....!...|
|000026b0| 0d c6 0e 07 50 c8 23 87 | 22 20 5b 79 2d 6f 72 2d |....P.#.|" [y-or-|
|000026c0| 6e 2d 70 20 22 44 6f 20 | 79 6f 75 20 77 61 6e 74 |n-p "Do |you want|
|000026d0| 20 74 6f 20 73 75 62 6d | 69 74 20 61 20 72 65 70 | to subm|it a rep|
|000026e0| 6f 72 74 20 6f 6e 20 65 | 6c 70 3f 20 22 20 72 65 |ort on e|lp? " re|
|000026f0| 71 75 69 72 65 20 72 65 | 70 6f 72 74 65 72 20 72 |quire re|porter r|
|00002700| 65 70 6f 72 74 65 72 2d | 73 75 62 6d 69 74 2d 62 |eporter-|submit-b|
|00002710| 75 67 2d 72 65 70 6f 72 | 74 20 65 6c 70 2d 68 65 |ug-repor|t elp-he|
|00002720| 6c 70 2d 61 64 64 72 65 | 73 73 20 22 65 6c 70 20 |lp-addre|ss "elp |
|00002730| 22 20 65 6c 70 2d 76 65 | 72 73 69 6f 6e 20 28 65 |" elp-ve|rsion (e|
|00002740| 6c 70 2d 72 65 70 6f 72 | 74 2d 6c 69 6d 69 74 20 |lp-repor|t-limit |
|00002750| 65 6c 70 2d 72 65 73 65 | 74 2d 61 66 74 65 72 2d |elp-rese|t-after-|
|00002760| 72 65 73 75 6c 74 73 20 | 65 6c 70 2d 73 6f 72 74 |results |elp-sort|
|00002770| 2d 62 79 2d 66 75 6e 63 | 74 69 6f 6e 29 5d 20 34 |-by-func|tion)] 4|
|00002780| 20 28 23 24 20 2e 20 39 | 38 31 34 29 20 6e 69 6c | (#$ . 9|814) nil|
|00002790| 5d 29 0a 28 70 72 6f 76 | 69 64 65 20 27 65 6c 70 |]).(prov|ide 'elp|
|000027a0| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+